home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue51 / Construc / WebMod.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-09-24  |  3.7 KB  |  117 lines
  1. unit WebMod;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, HTTPApp, MidItems, Db, ADODB,
  7.   Provider, CompProd, PagItems, MidProd, XMLBrokr;
  8.  
  9. type
  10.   TWebModule1 = class(TWebModule)
  11.     CustomerXMLBroker: TXMLBroker;
  12.     MidasPageProducer: TMidasPageProducer;
  13.     CustomerProvider: TDataSetProvider;
  14.     ADOConnect: TADOConnection;
  15.     CustomerADOTable: TADOTable;
  16.     OrdersADOTable: TADOTable;
  17.     DataSource1: TDataSource;
  18.     CustomerOrderDataForm: TDataForm;
  19.     CustomerFieldGroup: TFieldGroup;
  20.     CustomerADOTableCustNo: TFloatField;
  21.     CustomerADOTableCompany: TWideStringField;
  22.     CustomerADOTableAddr1: TWideStringField;
  23.     CustomerADOTableAddr2: TWideStringField;
  24.     CustomerADOTableCity: TWideStringField;
  25.     CustomerADOTableState: TWideStringField;
  26.     CustomerADOTableZip: TWideStringField;
  27.     CustomerADOTableCountry: TWideStringField;
  28.     CustomerADOTablePhone: TWideStringField;
  29.     CustomerADOTableFAX: TWideStringField;
  30.     CustomerADOTableTaxRate: TFloatField;
  31.     CustomerADOTableContact: TWideStringField;
  32.     CustomerADOTableLastInvoiceDate: TDateField;
  33.     OrdersADOTableOrderNo: TFloatField;
  34.     OrdersADOTableCustNo: TFloatField;
  35.     OrdersADOTableSaleDate: TDateField;
  36.     OrdersADOTableShipDate: TDateField;
  37.     OrdersADOTableEmpNo: TIntegerField;
  38.     OrdersADOTableShipToContact: TWideStringField;
  39.     OrdersADOTableShipToAddr1: TWideStringField;
  40.     OrdersADOTableShipToAddr2: TWideStringField;
  41.     OrdersADOTableShipToCity: TWideStringField;
  42.     OrdersADOTableShipToState: TWideStringField;
  43.     OrdersADOTableShipToZip: TWideStringField;
  44.     OrdersADOTableShipToCountry: TWideStringField;
  45.     OrdersADOTableShipToPhone: TWideStringField;
  46.     OrdersADOTableShipVIA: TWideStringField;
  47.     OrdersADOTablePO: TWideStringField;
  48.     OrdersADOTableTerms: TWideStringField;
  49.     OrdersADOTablePaymentMethod: TWideStringField;
  50.     OrdersADOTableItemsTotal: TFloatField;
  51.     OrdersADOTableTaxRate: TFloatField;
  52.     OrdersADOTableFreight: TFloatField;
  53.     OrdersADOTableAmountPaid: TFloatField;
  54.     CustomerNavigator: TDataNavigator;
  55.     OrdersGrid: TDataGrid;
  56.     OrdersNavigator: TDataNavigator;
  57.     OrdersProvider: TDataSetProvider;
  58.     OrdersXMLBroker: TXMLBroker;
  59.     CustNo: TFieldText;
  60.     Company: TFieldText;
  61.     Addr1: TFieldText;
  62.     Addr2: TFieldText;
  63.     City: TFieldText;
  64.     State: TFieldText;
  65.     Zip: TFieldText;
  66.     Country: TFieldText;
  67.     Phone: TFieldText;
  68.     FAX: TFieldText;
  69.     TaxRate: TFieldText;
  70.     Contact: TFieldText;
  71.     LastInvoiceDate: TFieldText;
  72.     FieldStatus1: TFieldStatus;
  73.     OrderNo: TTextColumn;
  74.     CustNo2: TTextColumn;
  75.     SaleDate: TTextColumn;
  76.     ShipDate: TTextColumn;
  77.     EmpNo: TTextColumn;
  78.     ShipToContact: TTextColumn;
  79.     ShipToAddr1: TTextColumn;
  80.     ShipToAddr2: TTextColumn;
  81.     ShipToCity: TTextColumn;
  82.     ShipToState: TTextColumn;
  83.     ShipToZip: TTextColumn;
  84.     ShipToCountry: TTextColumn;
  85.     ShipToPhone: TTextColumn;
  86.     ShipVIA: TTextColumn;
  87.     PO: TTextColumn;
  88.     Terms: TTextColumn;
  89.     PaymentMethod: TTextColumn;
  90.     ItemsTotal: TTextColumn;
  91.     TaxRate2: TTextColumn;
  92.     Freight: TTextColumn;
  93.     AmountPaid: TTextColumn;
  94.     StatusColumn1: TStatusColumn;
  95.     procedure WebModule1WebActionItem1Action(Sender: TObject;
  96.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  97.   private
  98.     { Private declarations }
  99.   public
  100.     { Public declarations }
  101.   end;
  102.  
  103. var
  104.   WebModule1: TWebModule1;
  105.  
  106. implementation
  107.  
  108. {$R *.DFM}
  109.  
  110. procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  111.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  112. begin
  113.   Response.Content := MidasPageProducer.Content
  114. end;
  115.  
  116. end.
  117.